home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct03060.geo / 00069.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.5 KB  |  122 lines
  1. on startMovie
  2.   Set_CDcounter(6)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   CursorTurnOff()
  9.   UpdateCursors(16, 0)
  10.   UpdateCursors(17, 0)
  11.   unLoadCast()
  12.   RestoreHilites()
  13. end
  14.  
  15. on TheinitCursor
  16.   initCursorCastNum()
  17.   initCursorList(1)
  18.   set CursorCastNum to getCursor(2)
  19.   cursor([CursorCastNum, CursorCastNum + 1])
  20. end
  21.  
  22. on checkScreenStatus
  23.   CheckRollOver()
  24.   CheckSnakeStatus()
  25.   go(the frame)
  26. end
  27.  
  28. on BlinkNext
  29.   if (the timer > getTimer()) and not soundBusy(2) then
  30.     startTimer()
  31.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  32.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  33.     else
  34.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  35.     end if
  36.   end if
  37. end
  38.  
  39. on GoNext
  40.   if not get_Disabled() then
  41.     if Get_NEXT() <> 0 then
  42.       UpdateCursors(16, 3)
  43.       UpdateCursors(17, 3)
  44.     end if
  45.     sound stop 2
  46.     if Get_NEXT() > 3 then
  47.       GoEndMovie()
  48.     else
  49.       go("t" & Get_NEXT())
  50.     end if
  51.     Set_NEXT(Get_NEXT() + 1)
  52.   end if
  53. end
  54.  
  55. on stopMovie
  56.   sound stop 1
  57.   unLoad()
  58.   setEmptyCursor()
  59. end
  60.  
  61. on GoNextMovie
  62.   PlaySound("GOSOUND.SO1")
  63.   SaveHilite()
  64.   Add_CDcounter(1)
  65.   set cdNum to Get_CDcounter()
  66.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  67.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  68. end
  69.  
  70. on playTheTSound theTSnd
  71.   PlaySound("NCT03060.S0" & theTSnd)
  72. end
  73.  
  74. on GoEndMovie
  75.   global ReturnToMenu
  76.   SaveSeenScreens()
  77.   if (ReturnToMenu = "SUBJECT") and (Get_ScreenSubject() <> "11") and (Get_ScreenSubject() <> "00") then
  78.     set theNum to integer(Get_ScreenSubject())
  79.     go(1, "NCS" & Get_ScreenSubject() & "010.GEO")
  80.   else
  81.     if ReturnToMenu = "TOOL" then
  82.       go(1, "NC_MM020.GEO")
  83.     else
  84.       if ReturnToMenu = "SECTION" then
  85.         go(1, "NC_MM040.GEO")
  86.       else
  87.         if ReturnToMenu = "MAIN MENU" then
  88.           go(1, "NC_MM010.GEO")
  89.         else
  90.           go(1, "NC_MM010.GEO")
  91.         end if
  92.       end if
  93.     end if
  94.   end if
  95. end
  96.  
  97. on CursorTurnOff
  98.   repeat with i = 1 to 4
  99.     UpdateCursors(22 + i, 0)
  100.     puppetSprite(22 + i, 0)
  101.   end repeat
  102.   updateStage()
  103. end
  104.  
  105. on handleExit
  106.   sound stop 2
  107.   repeat with i = 28 to 31
  108.     UpdateCursors(i, 0)
  109.   end repeat
  110.   go("t3b")
  111. end
  112.  
  113. on handleShowBtn theSpriteNum
  114.   go("btn" & theSpriteNum)
  115.   puppetSprite(theSpriteNum + 19, 1)
  116.   set the castNum of sprite (theSpriteNum + 19) to the number of cast ("BTN" & theSpriteNum & "_V")
  117.   UpdateCursors(31, 3)
  118.   UpdateCursors(29, 2)
  119.   UpdateCursors(30, 2)
  120.   UpdateCursors(28, 2)
  121. end
  122.